home *** CD-ROM | disk | FTP | other *** search
/ PC Users 8 / Cd Pc Users extra 8.iso / prog / inst / listx / setup.exe / COLOR4.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-11-12  |  8.3 KB  |  225 lines
  1. VERSION 5.00
  2. Object = "{9FE255D1-F32E-11D0-9E15-444553540000}#1.0#0"; "MLISTX.OCX"
  3. Begin VB.Form frmColors 
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5835
  6.    ClientLeft      =   2685
  7.    ClientTop       =   4155
  8.    ClientWidth     =   7830
  9.    ControlBox      =   0   'False
  10.    Icon            =   "Color4.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    PaletteMode     =   1  'UseZOrder
  16.    ScaleHeight     =   5835
  17.    ScaleWidth      =   7830
  18.    ShowInTaskbar   =   0   'False
  19.    Begin MabryCtl.MList MList3 
  20.       Height          =   3555
  21.       Left            =   5265
  22.       TabIndex        =   2
  23.       Top             =   345
  24.       Width           =   2175
  25.       _ExtentX        =   3836
  26.       _ExtentY        =   6271
  27.       BackColor       =   -2147483633
  28.       Caption         =   "Caption"
  29.       CaptionAlignment=   2
  30.       ForeColor       =   -2147483635
  31.       Object.TabStop         =   -1  'True
  32.       ThreedShadowColor=   -2147483627
  33.       MousePointer    =   -842150451
  34.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  35.          Name            =   "MS Sans Serif"
  36.          Size            =   8.25
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  44.          ColumnCount     =   3
  45.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  46.             Object.Width           =   35
  47.             MinWidth        =   25
  48.             MaxWidth        =   75
  49.             UserResizeEnabled=   -1
  50.             Heading         =   "Col 1"
  51.             Object.Visible         =   -1
  52.             ColumnAlignment =   0
  53.             HeadingAlignment=   0
  54.          EndProperty
  55.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  56.             Object.Width           =   35
  57.             MinWidth        =   0
  58.             MaxWidth        =   -1
  59.             UserResizeEnabled=   -1
  60.             Heading         =   "Col 2"
  61.             Object.Visible         =   -1
  62.             ColumnAlignment =   0
  63.             HeadingAlignment=   0
  64.          EndProperty
  65.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  66.             Object.Width           =   0
  67.             MinWidth        =   0
  68.             MaxWidth        =   -1
  69.             UserResizeEnabled=   -1
  70.             Heading         =   "Col 3"
  71.             Object.Visible         =   -1
  72.             ColumnAlignment =   0
  73.             HeadingAlignment=   0
  74.          EndProperty
  75.       EndProperty
  76.    End
  77.    Begin MabryCtl.MList MList2 
  78.       Height          =   3540
  79.       Left            =   2805
  80.       TabIndex        =   1
  81.       Top             =   360
  82.       Width           =   2175
  83.       _ExtentX        =   3836
  84.       _ExtentY        =   6244
  85.       Caption         =   "Multiline Headings"
  86.       CaptionAlignment=   2
  87.       Object.TabStop         =   -1  'True
  88.       ThreedShadowColor=   -2147483627
  89.       MousePointer    =   -842150451
  90.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.          Name            =   "MS Sans Serif"
  92.          Size            =   8.25
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  100.          ColumnCount     =   3
  101.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  102.             Object.Width           =   35
  103.             MinWidth        =   0
  104.             MaxWidth        =   -1
  105.             UserResizeEnabled=   -1
  106.             Heading         =   "Col 1"
  107.             Object.Visible         =   -1
  108.             ColumnAlignment =   2
  109.             HeadingAlignment=   0
  110.          EndProperty
  111.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  112.             Object.Width           =   35
  113.             MinWidth        =   0
  114.             MaxWidth        =   -1
  115.             UserResizeEnabled=   -1
  116.             Heading         =   "Col 2"
  117.             Object.Visible         =   -1
  118.             ColumnAlignment =   2
  119.             HeadingAlignment=   2
  120.          EndProperty
  121.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  122.             Object.Width           =   20
  123.             MinWidth        =   0
  124.             MaxWidth        =   -1
  125.             UserResizeEnabled=   -1
  126.             Heading         =   "Col 3"
  127.             Object.Visible         =   -1
  128.             ColumnAlignment =   2
  129.             HeadingAlignment=   1
  130.          EndProperty
  131.       EndProperty
  132.    End
  133.    Begin MabryCtl.MList MList1 
  134.       Height          =   3540
  135.       Left            =   360
  136.       TabIndex        =   0
  137.       Top             =   360
  138.       Width           =   2175
  139.       _ExtentX        =   3836
  140.       _ExtentY        =   6244
  141.       Caption         =   "Caption"
  142.       CaptionAlignment=   2
  143.       Object.TabStop         =   -1  'True
  144.       ThreedShadowColor=   -2147483627
  145.       MousePointer    =   -842150451
  146.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   8.25
  149.          Charset         =   0
  150.          Weight          =   400
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  156.          ColumnCount     =   3
  157.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  158.             Object.Width           =   40
  159.             MinWidth        =   0
  160.             MaxWidth        =   -1
  161.             UserResizeEnabled=   -1
  162.             Heading         =   "Col 1"
  163.             Object.Visible         =   -1
  164.             ColumnAlignment =   0
  165.             HeadingAlignment=   0
  166.          EndProperty
  167.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  168.             Object.Width           =   40
  169.             MinWidth        =   0
  170.             MaxWidth        =   -1
  171.             UserResizeEnabled=   -1
  172.             Heading         =   "Col 2"
  173.             Object.Visible         =   -1
  174.             ColumnAlignment =   0
  175.             HeadingAlignment=   0
  176.          EndProperty
  177.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  178.             Object.Width           =   0
  179.             MinWidth        =   0
  180.             MaxWidth        =   -1
  181.             UserResizeEnabled=   -1
  182.             Heading         =   "Col 3"
  183.             Object.Visible         =   -1
  184.             ColumnAlignment =   0
  185.             HeadingAlignment=   0
  186.          EndProperty
  187.       EndProperty
  188.    End
  189. Attribute VB_Name = "frmColors"
  190. Attribute VB_GlobalNameSpace = False
  191. Attribute VB_Creatable = False
  192. Attribute VB_PredeclaredId = True
  193. Attribute VB_Exposed = False
  194. Option Explicit
  195. Private Sub Form_Load()
  196.    Dim i As Integer
  197.    ' Make a multiline caption
  198.    MList1.Caption = "Multiline" & Chr(13) & "Captions"
  199.    ' And multiline headings
  200.    MList2.Columns(0).Heading = "Col" & Chr(13) & "One"
  201.    MList2.Columns(1).Heading = "Col" & Chr(13) & "Two"
  202.    MList2.Columns(2).Heading = "Col" & Chr(13) & "Three"
  203.    ' Put something in the lists
  204.    For i = 1 To 39
  205.       MList1.AddItem CStr(i) & ",bar" & Chr(13) & "zzz,baz"
  206.       MList2.AddItem CStr(i) & ",bar" & Chr(13) & "zzz,baz"
  207.       MList3.AddItem CStr(i) & ",bar" & Chr(13) & "zzz,baz"
  208.    Next
  209.    ' Set column colors for MList1
  210.    MList1.Columns(0).ForeColor = RGB(255, 0, 0)
  211.    MList1.Columns(1).BackColor = RGB(255, 255, 0)
  212.    MList1.Columns(1).ForeColor = RGB(0, 0, 255)
  213.    ' Set item colors for MList2
  214.    For i = 1 To 39
  215.       If (i Mod 2 = 1) Then
  216.          MList2.ItemBackColor(i - 1) = RGB(0, 255, 255)
  217.          MList2.ItemHiliteTextColor(i - 1) = RGB(0, 255, 255)
  218.       End If
  219.    Next
  220.    ' Setup one specially colored row in MList3
  221.    MList3.ItemForeColor(4) = RGB(255, 0, 0)
  222.    MList3.ItemHiliteColor(4) = RGB(128, 0, 0)
  223.    MList3.ItemHiliteTextColor(4) = RGB(0, 255, 255)
  224. End Sub
  225.